From 6d8988a8b971bef3cfdce257352928e8b8b2b8d8 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 2 Sep 2010 05:03:06 +0000 Subject: [PATCH] gnus-html-put-image, gnus-html-rescale-image: Pass `file' argument. --- lisp/gnus/ChangeLog | 1 + lisp/gnus/gnus-html.el | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index eaf13483d77..95455fda4b4 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -2,6 +2,7 @@ * gnus-html.el (gnus-article-html): Make work buffer multibyte for decoded contents. + (gnus-html-put-image, gnus-html-rescale-image): Pass `file' argument. 2010-09-02 Lars Magne Ingebrigtsen diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 80eaae68052..3948598d561 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -255,7 +255,7 @@ fit these criteria." (= (car (image-size image t)) 30) (= (cdr (image-size image t)) 30)))) (progn - (gnus-put-image (gnus-html-rescale-image image) + (gnus-put-image (gnus-html-rescale-image image file) (gnus-string-or string "*")) t) (insert string) @@ -265,7 +265,7 @@ fit these criteria." (gnus-string-or string "*"))) nil))))) -(defun gnus-html-rescale-image (image) +(defun gnus-html-rescale-image (image file) (if (or (not (fboundp 'imagemagick-types)) (not (get-buffer-window (current-buffer)))) image -- 2.30.2